00100	COMMENT ⊗   VALID 00003 PAGES
00200	C REC  PAGE   DESCRIPTION
00300	C00001 00001
00400	C00002 00002	
00500	C00003 00003	SRATE←25000MAG←512/SRATESPEED←2NCHNS←4
00600	C00006 ENDMK
00700	C⊗;
     

     

00100	SRATE←25000;MAG←512/SRATE;SPEED←2;NCHNS←4;
00200	ARRAY F1(512);
00250	VARIABLE /DSIG;
00300	VARIABLE /AA,MS,CS,MS2
00400	;
00500	<   PARAMETERS FOR V1-4
00600	<   P1  P2  P3  P4  P5  P6  P7  P8  P9  P10
00700	<   BT  D  AMP CF  MF  I1  I2  MF2 2I1 2I2
00800	
00900	<   P11 P12 P13 P14 P15 P16 P17 P18
01000	<   AFU IFU %VB %VI VBF SC I2FU VIBFU
01100	COMPILE;
01200	INSTRUMENT V1;
01300	MS←P5*P16*MAG;CS←P4*P16*MAG;
01400	OSCIL[10](1,10*(MAG/P2),P18);
01500	OSCIL(U1,P15*MAG,F1);AA←U2*P13;
01600	INTRP(P6*MS,P7*MS,P12);
01700	OSCIL(U3+P14*U3*U2,MS*(1+AA),F1);
01800	INTRP(P9*P8*P16*MAG,P10*P8*P16*MAG,P17);
01900	OSCIL(U5,P8*MAG*P16,F1);
02000	ZOSCIL(P3,MAG/P2,P11);
02100	ZOSCIL(U7,U4+CS*(1+AA)+U6,F1);
02200	OUTA←OUTA+U8*.6;
02300	OUTB←OUTB+U8*.6;
02400	DSIG←DSIG+U8*.2;
02500	END;
02600	INSTRUMENT V2;
02700	MS←P5*P16*MAG;CS←P4*P16*MAG;
02800	OSCIL[10](1,10*(MAG/P2),P18);
02900	OSCIL(U1,P15*MAG,F1);AA←U2*P13;
03000	INTRP(P6*MS,P7*MS,P12);
03100	OSCIL(U3+P14*U3*U2,MS*(1+AA),F1);
03200	INTRP(P9*P8*P16*MAG,P10*P8*P16*MAG,P17);
03300	OSCIL(U5,P8*MAG*P16,F1);
03400	ZOSCIL(P3,MAG/P2,P11);
03500	ZOSCIL(U7,U4+CS*(1+AA)+U6,F1);
03600	OUTB←OUTB+U8*.6;
03700	OUTC←OUTC+U8*.6;
03800	DSIG←DSIG+U8*.2;
03900	END;
04000	INSTRUMENT V3;
04100	MS←P5*P16*MAG;CS←P4*P16*MAG;
04200	OSCIL[10](1,10*(MAG/P2),P18);
04300	OSCIL(U1,P15*MAG,F1);AA←U2*P13;
04400	INTRP(P6*MS,P7*MS,P12);
04500	OSCIL(U3+P14*U3*U2,MS*(1+AA),F1);
04600	INTRP(P9*P8*P16*MAG,P10*P8*P16*MAG,P17);
04700	OSCIL(U5,P8*MAG*P16,F1);
04800	ZOSCIL(P3,MAG/P2,P11);
04900	ZOSCIL(U7,U4+CS*(1+AA)+U6,F1);
05000	OUTC←OUTC+U8*.6;
05100	OUTD←OUTD+U8*.6;
05200	DSIG←DSIG+U8*.2;
05300	END;
05400	INSTRUMENT V4;
05500	MS←P5*P16*MAG;CS←P4*P16*MAG;
05600	OSCIL[10](1,10*(MAG/P2),P18);
05700	OSCIL(U1,P15*MAG,F1);AA←U2*P13;
05800	INTRP(P6*MS,P7*MS,P12);
05900	OSCIL(U3+P14*U3*U2,MS*(1+AA),F1);
06000	INTRP(P9*P8*P16*MAG,P10*P8*P16*MAG,P17);
06100	OSCIL(U5,P8*MAG*P16,F1);
06200	ZOSCIL(P3,MAG/P2,P11);
06300	ZOSCIL(U7,U4+CS*(1+AA)+U6,F1);
06400	OUTA←OUTA+U8*.6;
06500	OUTD←OUTD+U8*.6;
06600	DSIG←DSIG+U8*.2;
06700	END;
06800	FINISH;
06900	SYNTH(F1);1 1 999